home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD020b.dsk / SPELLER.bas < prev    next >
BASIC Source File  |  2003-06-12  |  921b  |  23 lines
  1. 5  DIM WO$(1000)
  2. 6 A$(1) = "GRADES 1-4":A$(2) = "GRADES 5-8":A$(3) = "GRADES 9-12":A$(4) = "COLLEGE"
  3. 10 D$ =  CHR$(4)
  4. 11  HOME : VTAB 5: PRINT "1 GRADES 1-4": PRINT : PRINT "2 GRADES 5-8": PRINT : PRINT "3 GRADES 9-12": PRINT : PRINT "4 COLLEGE": PRINT : PRINT : INPUT "    ENTER VOCABULARY LEVEL ";A$: IF  VAL(A$) <1  OR  VAL(A$) >4  THEN 11
  5. 12 A =  VAL(A$)
  6. 20  PRINT : PRINT D$;"OPEN ";A$(A);" WORDS,L15"
  7. 30  PRINT D$;"READ ";A$(A);" WORDS,R1"
  8. 40  INPUT NW
  9. 50  FOR I = 1 TO NW: INPUT WO$(I): NEXT 
  10. 60  PRINT D$;"CLOSE"
  11. 70  FOR I = 1 TO NW
  12. 75  PRINT 
  13. 80  PRINT "RECORD ";I;" IS ";WO$(I)
  14. 90  PRINT : INPUT "ENTER CORRECT SPELLING OR               HIT <RETURN> FOR NO CHANGE              -- ";AN$
  15. 100  IF AN$ = ""  THEN 120
  16. 110 WO$(I) = AN$
  17. 120  NEXT 
  18. 130  PRINT 
  19. 140  PRINT D$;"OPEN ";A$(A);" WORDS,L15"
  20. 150  PRINT D$;"WRITE ";A$(A);" WORDS,R1"
  21. 160  PRINT NW
  22. 170  FOR I = 1 TO NW: PRINT WO$(I): NEXT 
  23. 180  PRINT D$"CLOSE"